home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / U-Utilities / (c)u2.d64 / diskprint.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  49 lines
  1. 20 IFPEEK(50326)=198THEN30
  2. 22 PRINT"        WAIT....LOADING CODE[146]"
  3. 25 LOAD"DCATMLP.D",8,1
  4. 30 CLR:DIMPF$(150):CLOSE4:CLOSE2:OPEN15,8,15
  5. 35 REM***SCREEN FORMAT***
  6. 39 PRINT"[147]"
  7. 40 PRINT"   THIS PROGRAM WILL READ YOUR DISK             DIRECTORY SORT AND"
  8. 44 PRINT"   PRINT  IT IN  ALPHABETICAL ORDER"
  9. 50 PRINT"      INSERT DISK TO BE CATALOGED"
  10. 52 PRINT"                HIT F 1 [146] "
  11. 54 PRINT"              WHEN  READY "
  12. 56 GETA$:IFA$=""THEN56
  13. 57 IFA$="[133]"THEN100
  14. 59 GOTO56
  15. 100 REM***FORM HEADER OF NAME,ID,BLOCKS FREE****
  16. 110 OPEN2,8,2,"#":GOSUB1000:PRINT#15,"U1";2;0;18;0:PRINT#15,"B-P:"2;162
  17. 120 GET#2,I$:GET#2,D$:CLOSE2:ID$=I$+D$:OPEN1,8,0,"$0:%%2"
  18. 130 CH$="                 "+"":SYS50323
  19. 140 DH$="                 "+"":SYS50323
  20. 150 H$=LEFT$(CH$,16)+ID$+STR$(PEEK(251)+256*PEEK(252))
  21. 160 OPEN2,8,0,"$0":GOSUB1000:DH$="                "+"":SYS50323
  22. 170 IFSTTHENCLOSE2:GOTO2000
  23. 200 REM****FORM ARRAY OF PRG NAMES***
  24. 210 FORCT=1TO150:FS$="                 "+"":SYS50323
  25. 220 IFSTTHENCT=CT-3:CLOSE2:GOTO2000
  26. 230 PF$(CT)=FS$+" "+ID$+STR$(PEEK(251)+256*PEEK(252)):NEXT:PRINT"TOO MANY FILES"
  27. 1000 REM***ERROR TRAPPING***
  28. 1010 INPUT#15,E,G$,K$,L$:IFE<20THENRETURN
  29. 1020 IFE=74THENPRINT"             DISK NOT PRESENT":CLOSE15:GOTO20
  30. 1030 PRINTE;G$;L$;K$:CLOSE15:END
  31. 2000 SYS49152,CT,PF$(1)
  32. 2001 PRINT"[147]":PRINT"    DO YOU WANT HARD COPY?     Y/N[146]"
  33. 2002 GETA$:IFA$=""THEN2002
  34. 2003 IFA$="Y"THEN2008
  35. 2004 IFA$="N"THENPRINT"[147]":END
  36. 2008 PRINT"NOW PRINTING[146]":OPEN4,4:PRINT#4,CHR$(27);"@";
  37. 2009 PRINT#4,CHR$(27);"D";CHR$(20);CHR$(50);CHR$(76);CHR$(0);
  38. 2010 PRINT#4,"              ";H$
  39. 2015 PRINT#4,CHR$(27);CHR$(15);
  40. 2030 FORN=1TOCTSTEP2:PRINT#4,CHR$(27);"1";
  41. 2040 FORK=NTON+1
  42. 2050 PRINT#4,CHR$(9);PF$(K);
  43. 2060 NEXTK
  44. 2070 PRINT#4,CHR$(9);"[156]";CHR$(13);"              [156]";
  45. 2080 NEXTN:PRINT#4,CHR$(27);"2";
  46. 2090 CLOSE4:CLOSE1:GOTO30
  47. 3000 REM THIS PROGRAM MUST LOAD "DCATMLP.D" WHICH WORKS WITH DISKAT
  48. 3005 REM SET UP FOR M/T SPIRIT AND EPSON PRINTERS
  49.